<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires

dim sPageSecLev

%>

<!--#include file=../includes/pageaccess.asp-->

<%

%>
<!-- #INCLUDE FILE="../includes/ADOVBS.INC" -->
<%
Dim nReqSeqNumber
Dim sFormType
Dim sCapturedString

Dim rsDirectiveNumber
Dim nDirectiveNumber
Dim DLLDirectiveNumber

On error resume next

nReqSeqNumber = Request.QueryString("nReqSeqNum")
sFormType = Request.QueryString("sFormType")

Set DLLDirectiveNumber = Server.CreateObject("KT_Search.clsSearch")
nDirectiveNumber = DLLDirectiveNumber.GetDirectiveDetails(nReqSeqNumber)

sCapturedString = sFormType & "_captured.asp?nReqSeqNumber=" & nReqSeqNumber & "&nDirectiveNumber=" & nDirectiveNumber

Response.Redirect sCapturedString
	

%>